home *** CD-ROM | disk | FTP | other *** search
/ Softwarová Záchrana 3 / Softwarova-zachrana-3.bin / Xteq X-Setup / xqdcXSP-Setup-EN.exe / {app} / plugins / XQ Creatures 1 Cheat.xpl < prev    next >
Text File  |  2000-11-12  |  1KB  |  45 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="1"
  3. "COUNT"="1"
  4. "UIPATH"="Program Options\Games\Creatures 2\"
  5. "NAME"="Creatures I Cheat"
  6. "VERSION"="1.03"
  7. "OSVERSION"="10100"
  8. "LANGUAGE"="VBScript"
  9. "TEXT 1"="Cheat Name"
  10. "DESCRIPTION 1"="To enable the Blueberry Cheat on Creatures 1, enter "Blueberry4$" [no quotes]."
  11. "DESCRIPTION 2"="To use the Cheat, run Creatures from the World menu. Select open and load World.SFC. As autosave is disabled in this mode, manually save the game from the World menu."
  12. "AUTHOR"="Ojatex@aol.com"
  13. "CONTACTURL"="http://members.aol.com/ojatex/"
  14. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  15. "COMMENT 1"=" "
  16.  
  17.  
  18. sP="HKCU\Software\Millenium Interactive\Creatures\1.0\Privileges"
  19.  
  20. 'Called when the Plugin is started
  21.  
  22.  
  23. Sub Plugin_Initialize 
  24.  i=RegReadValue(sP) 
  25.  Call SetUIElement(1,i)
  26. End Sub
  27.  
  28. 'Called when the Plugin should validate the Data the user has entered
  29. SUB Plugin_CheckData(ElementIndex)
  30. END SUB
  31.  
  32. 'Called when the Plugin should apply the changes
  33. SUB Plugin_Apply(ElementIndex,ElementSubIndex)
  34.  i=GetUIElement(1)
  35.  
  36.     Call RegWriteValue(sP,i,1)
  37.  
  38.  
  39. END SUB
  40.  
  41. SUB Plugin_Terminate
  42.  
  43. END SUB
  44.  
  45.